home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / form1040.sit / Form 1040 / card_11609.txt < prev    next >
Text File  |  1988-02-12  |  6KB  |  271 lines
  1. -- card: 11609 from stack: in
  2. -- bmap block id: 7307
  3. -- flags: 4000
  4. -- background id: 6557
  5. -- name: 21
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   Put 21 Into Bkgnd field ID 26
  9. end OpenCard
  10.  
  11. On ClearInfo
  12.   Put Empty into Card field ID 18 of Card ID 11609 -- line 12a
  13.   Put   0   into Card field ID 19 of Card ID 11609 -- line 12b
  14.   Put   0   into Card field ID 20 of Card ID 11609 -- line 13
  15. end ClearInfo
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 01
  20. -- high flags: 0000
  21. -- rect: left=93 top=68 right=97 bottom=254
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 10
  27. -- style flags: 0
  28. -- line height: 13
  29. -- part name: 
  30.  
  31.  
  32. -- part 4 (field)
  33. -- low flags: 01
  34. -- high flags: 0000
  35. -- rect: left=3 top=52 right=67 bottom=67
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 10
  41. -- style flags: 0
  42. -- line height: 13
  43. -- part name: 
  44.  
  45.  
  46. -- part 5 (field)
  47. -- low flags: 01
  48. -- high flags: 0000
  49. -- rect: left=93 top=109 right=150 bottom=286
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 10
  55. -- style flags: 0
  56. -- line height: 13
  57. -- part name: 
  58.  
  59.  
  60. -- part 6 (field)
  61. -- low flags: 01
  62. -- high flags: 0000
  63. -- rect: left=93 top=158 right=186 bottom=394
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 3
  68. -- text size: 10
  69. -- style flags: 0
  70. -- line height: 13
  71. -- part name: 
  72.  
  73.  
  74. -- part 9 (button)
  75. -- low flags: 00
  76. -- high flags: A003
  77. -- rect: left=121 top=108 right=123 bottom=188
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Multiply
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   Set cursor to 4
  89.   Put 65/100 into temp
  90.   Put (Temp * Card field ID 18 of Card ID 11609) into Total
  91.   Set numberformat to "#########0.00"
  92.   Put total into Card field ID 19 of Card ID 11609
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 12 (button)
  98. -- low flags: 00
  99. -- high flags: A003
  100. -- rect: left=118 top=158 right=172 bottom=153
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Add
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   Set cursor to 4
  112.   Put 0 into temp
  113.   Add Card field ID 30 of Card ID 12388 to temp -- line 9a
  114.   Add Card field ID 31 of Card ID 12388 to temp -- line 9b
  115.   Add Card field ID 32 of Card ID 12388 to temp -- line 10
  116.   Add Card field ID 33 of Card ID 12388 to temp -- line 11
  117.   Add Card field ID 19 of Card ID 11609 to temp -- line 12b
  118.   Put temp into Card field ID 20 of Card ID 11609 -- line 13
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 14 (field)
  124. -- low flags: 01
  125. -- high flags: 0002
  126. -- rect: left=253 top=81 right=97 bottom=279
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 3
  131. -- text size: 10
  132. -- style flags: 256
  133. -- line height: 13
  134. -- part name: 
  135.  
  136.  
  137. -- part 16 (field)
  138. -- low flags: 01
  139. -- high flags: 0002
  140. -- rect: left=285 top=135 right=151 bottom=311
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 3
  145. -- text size: 10
  146. -- style flags: 256
  147. -- line height: 13
  148. -- part name: 
  149.  
  150.  
  151. -- part 17 (field)
  152. -- low flags: 01
  153. -- high flags: 0002
  154. -- rect: left=393 top=170 right=186 bottom=419
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 3
  159. -- text size: 10
  160. -- style flags: 256
  161. -- line height: 13
  162. -- part name: 
  163.  
  164.  
  165. -- part 18 (field)
  166. -- low flags: 00
  167. -- high flags: 0002
  168. -- rect: left=278 top=81 right=97 bottom=363
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 65535
  172. -- font id: 3
  173. -- text size: 10
  174. -- style flags: 0
  175. -- line height: 13
  176. -- part name: 
  177.  
  178.  
  179. -- part 19 (field)
  180. -- low flags: 01
  181. -- high flags: 0002
  182. -- rect: left=310 top=135 right=151 bottom=394
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 65535
  186. -- font id: 3
  187. -- text size: 10
  188. -- style flags: 0
  189. -- line height: 13
  190. -- part name: 
  191. ----- HyperTalk script -----
  192. On MouseUp
  193.   Send "MouseUp" to Card Button ID 9 of Card ID 11609
  194. End MouseUp
  195.  
  196.  
  197. -- part 20 (field)
  198. -- low flags: 01
  199. -- high flags: 0002
  200. -- rect: left=418 top=170 right=186 bottom=502
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 65535
  204. -- font id: 3
  205. -- text size: 10
  206. -- style flags: 0
  207. -- line height: 13
  208. -- part name: 
  209. ----- HyperTalk script -----
  210. On MouseUp
  211.   Send "MouseUp" to Card Button ID 12 of Card ID 11609
  212. End MouseUp
  213.  
  214.  
  215. -- part contents for background part 26
  216. ----- text -----
  217. 21
  218.  
  219. -- part contents for card part 1
  220. ----- text -----
  221. 12a. Personal interest you paid 
  222.         (see page 22). . . . . . . . . . .
  223.  
  224.  
  225. -- part contents for background part 13
  226. ----- text -----
  227. Interest You
  228.     Paid
  229.  
  230. -- part contents for card part 4
  231. ----- text -----
  232. (Continued)
  233.  
  234. -- part contents for card part 5
  235. ----- text -----
  236. 12b.                        the amount on line 
  237.          12a by 65% (.65).  Enter the
  238.          result . . . . . . . . . . . . . . . . . . . . .
  239.  
  240. -- part contents for card part 6
  241. ----- text -----
  242. 13.               the amounts on lines 9a through 11, and 12b. 
  243.         Enter the total here.  Total interest . . . . . . . . . . . . . . . 
  244.  
  245. -- part contents for card part 14
  246. ----- text -----
  247. 12a
  248.  
  249. -- part contents for card part 16
  250. ----- text -----
  251. 12b
  252.  
  253. -- part contents for card part 17
  254. ----- text -----
  255. 13
  256.  
  257. -- part contents for background part 20
  258. ----- text -----
  259. Continue to next card
  260.  
  261. -- part contents for background part 40
  262. ----- text -----
  263. 4:07 PM
  264.  
  265. -- part contents for card part 19
  266. ----- text -----
  267. 0
  268.  
  269. -- part contents for card part 20
  270. ----- text -----
  271. 0